home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / pcplus2.zip / SOURCE.ASP < prev    next >
Text File  |  1988-01-01  |  2KB  |  41 lines
  1. ;*************************************************************************
  2. ;* SOURCE.ASP  (C) 1987 DATASTORM TECHNOLOGIES, INC.                     *
  3. ;*                                                                       *
  4. ;* A sample ASPECT script file for logging onto The Source via Telenet.  *
  5. ;*                                                                       *
  6. ;*************************************************************************
  7.  
  8. ASSIGN S0 "449-4404"       ; enter your local TELENET number here
  9. ASSIGN S1 "uuunnn"         ; enter your USERID here
  10. ASSIGN S2 "pppppp"         ; enter your PASSWORD here
  11. ASSIGN S3 "C Snn"          ; enter your SYSTEM ID here
  12.  
  13. EMULATE ANSI               ; Select terminal emulation
  14.  
  15. IF NOT LINKED              ; If not called via Dial Dir
  16.    CLEAR
  17.    TIME S8 0
  18.    DATE S9
  19.    FATSAY 0 0 31 "Dialing The Source at %s on %s" S8 S9
  20.    SET BAUD 1200            ; configure line settings
  21.    SET PARITY EVEN
  22.    SET DATABITS 7
  23.    SET DUPLEX FULL
  24.    MDIAL S0                 ; Dial TELENET
  25. ENDIF
  26.  
  27. PAUSE 2                    ; Wait a sec for network
  28. TRANSMIT "^M^M"            ; Wake up TELENET
  29. WAITFOR "TERMINAL="        ; Wait for prompt
  30. TRANSMIT "^M"              ; Send CR
  31. WAITFOR "@"                ; Wait for prompt
  32. TRANSMIT S3                ; Send SYSTEM ID
  33. TRANSMIT "^M"              ; Send CR
  34. WAITFOR ">"                ; Wait for prompt
  35. TRANSMIT "ID "             ; Send ID string
  36. TRANSMIT S1
  37. TRANSMIT "^M"              ; and CR
  38. WAITFOR "?"                ; Wait for prompt
  39. TRANSMIT S2                ; Send PASSWORD
  40. TRANSMIT "^M"              ; and CR
  41.